! ==============================================================================
! This file is part of CUPP (Community Unified Physics Package) since 2023.
! ==============================================================================

module cupp_const_mod

  implicit none

  integer , parameter :: r8     = 8

  real(r8), parameter :: pi     = 4 * atan(1.0_r8)
  real(r8), parameter :: pi2    = 2 * pi
  real(r8), parameter :: pio2   = pi / 2.0_r8
  real(r8), parameter :: pio4   = pi / 4.0_r8
  real(r8), parameter :: rad    = pi / 180.0_r8
  real(r8), parameter :: deg    = 180.0_r8 / pi

end module cupp_const_mod
